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BEGIN 

X COPY/CANDt 

COMMENT 11 * 

* 
* 

* 

* 
* 



SOURCE PROGRAM, RtVlSEU 5-72 CSHM) 

TITLE.? B£5Q.QZeS7_M MA.B.K_XI^...5X5.T.E.M RELEASE 

FILE 101 SYMBOL/COPY ImPE 10! S YMBUL2/F ILEOOO 
THIS MATERIAL IS PROPRIETARY Tu BURROUGHS CORPORAT 

AND,. .15...AQT TO BE REPR.QOUc_£C.'_ .UiEU* O.R. H.LS.CLQ5£D_ . 

EXCEPT IN ACCORDANCE Kl Th PROGRAM LICENSE OR UPON 

WRITTEN AUTHORIZATION bF THE PATENT DIVISION OF 

B URR QUfi h£. C OHP OR AX X Qit j U.E T R 01. t.» MlCtl 1 £ A.N...A8 2 12 - _ _ 

COPYRIGHT CO 1971, 1972 BURROUGHS CORPORATION 
A A. 32020.6 AA3a663/_. _ 

REAL COMMON; 

SAVE ARRAY A [ » 30 ] * BUFFER l * BUFFER 2 C ! 300 3 i 

ARRAY N[0!30]*PARAMS[0: 10 ] * D IS KRO^S t J 19 j; 

APTR* ASTART* BASE* ENDRESEQ* EUFPTR* ERRSEQ* FID* 

FILETYPE* HDRO* HRANGE* I* INCREMENT* J* LINE' 

LRANGE* UREC, MFJD* NCT* NPARAMa, NPTR' OUT^UTNAME* 0U..T8EQ, 

PC* PREVSEQ* PSIZE* RESULTl* RtSULT2* RPB* HSIZE* SEQLUC* 

SPB* SPR* SRCESEG* STARTRESEQ* USER* rtPB; 

BOOLEAN BRAAK, CONCISE* DaTaFILE.*. ERROR*. FURMT* . m A*ETAB» OK* 
PRINTER* PUNCH* RESEQ* SEOCHECK* SFLG, mORKFILEJ 

LABEL ERRER*EXIT; 

DEFINE E0FMARK=lOOO00CO0#* MASK*3"20UOOOQCOO ,, # ; 

DEFINE MSGSIZE = (C APTR. C 33slb]-A5T ART )x8 + AP TR.C JO' 3] )#* 

FILE OUT NEWTAB RISK SERIAL L20:30 ] C 2* 30* 300' S AV E \)i ~ 



__* _ 

ION * 

* 



* 
* 
_*. _ 

* 



SAVE 
REAL 



FILE OUT PRNT <\ (T)C2*i7i; <®~ n q" n '\\ ..?_ 

FILE OUT PNCH (2*lo); 

%************************************* **************** ********* 

PROCEDURE DISKWA I TCI* A* Sj .0-11..- - - - _.._... 

VALUE I*S,D* REAL I*S,n; ARRAY A L * 3 i COMMUNl C A T E C -8 ) ; 
%**************************************»*********************** 



MUJ^MkllzhAtidjM&Mi 



.P.R.UC.E.OURE . GETHE A.DE.R.(ArE Aji &AjAl.iM#'i ' HAM.3 ) > 
REAL NAM1*NAM2*NAM3; ARRAY AREAfi; COMMON 

X************************************************************** 

STREAM PROCEDURE OUTCGNVC A* iM* SUPRES ) ' VALUE N.*.S.U.PRE S.A 

2*** + ************************* + **********.*j,-i. i*i**j.a.i 



******* 



******* 



******* 






%*******************************•**********«************************ * : * 
BEGIN 

S I : = LQ C N I ,LU.f = hi n.S,L=al3E.C.j _ _ _ _...,. 

SUPRES(DU*01-8; DS»s7FlLL); 

END STREAM PROCEDURE OUTCONV; 
%*************•******************************************************* 
STREAM PROCEDURE MQ VE (N* i,h )j VALUE NJ 

begin si t «a; di i =b; osisn wus; enu; 

-.i.*.*.**...t .*..*_* * .*.***. **..**_*_**. .*..*.**.*_*..*.*. *;*.*.*.*_*.. *.*.*.* *.**.** ************ *± **_* * * *. *jt*A*. * 

REAL STREAM PROCEDURE AODRESS(A); 
8EGIN SI l»A; ADDRESSJaSl; END* 

-..***.-**.*-*******.*.***.*.*..**,*..*..*.*„* 
REAL STREAM PROCEDURE INPCONVCA); 

BEGIN SIJsa; DII»L0C INPCOn*; DSI»8QCT; END J 

_.i* .*.*. *..*.* *..***** ***,*,*.* *M*JLAjLi..±Jt*L±.±±A£JL*-*±.lLir.+Ji.*-*Ji. *_**_**_ *** *** ******* * **** * * 

STREAM PROCEDURE PUCETYPECFILETYPE*FI 11) i VALUE FILETYPE; 
X******************** ************************* ************************ 

BEGJLN.... .._._... _ .._ ._.. 

su*fiil; 5ii«s'i-2<i; di**loc fik; osi-hosj 

SIisFIIL; 2(Sll»SI*56)l Oll"LOC Fill! 0S|*W0S; 

ttl.!"£i 1U-- PlABfll+lB J _ SjJ.« LO C L LjjJlELi_§JJ*M.*l ,i__QSJL«£HHJ 

END STREAM PROCEDURE PLACETYPU 
X ********************* * ************** ********** 

-gaO££fl.Ufie..rWXOUTCA»N#T)i V ALUE n*t; real a* iv,t; 



t ***** * * * * * ************** 
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% + **+ ************** **************************** ********** 

BEGIN 

COMMUNIC.ATEC-in; 

BRAAKJaBOOLEANCT); % MCP RETURNS 1 IF BREAK OCCURRED 

aptr»*astart; 
end; 

%************************** 



***************************************************** 
STREAM PROCEDURE PLACESTRIiM6(APTft#5TrtlNG,cdwVErtTJi VAl 
?..* *****.******** * ***..** ****** ***..** *.*... *..**.* **************** 

BCdTM I nril CUt lAQd r v T T • 



***************000l5000 
00015100 

0.0015200 

00015300 
00015400 
00015500 



DI:*DC# 
..DS.I.*?F.IJ.L>. 
THek b'i:*si + i 



***************************** ****************000l5600 

VALUE ST«lNG#CDNvERTi00015700 

* *..*.** ..* * * * ****** * * *.* 0.0 015800 

label exit; 00015900 

di:*aptr; dij*di+5; di:*qc; svj=di; 00016000 

- 000.16.102. 

ELSE 0S:=CHR); 00016200 

00016300 

- - 00.016 AflQ. 

00016500 
00016600 
00016700 
*************000 16300 
00016900 
*.0Q.0.170Q0 
00017100 



begin local sv; 

susloc string; „ 

C.ONV EBTXQS J »epE.c; D..I * «D1 -a; 

sn = sv; di: = sv; 8CIF SCa" »' 

jump out to exit); 

sit=sj+i; ds:=7chr; 

EXlTt 

ds»*lit m "; svjbdi; si»sloc sv; di:*aptr; ds»*wos; 

.END STREAM PROCEDURE PLACESTRllSLGi 

'**************************** 



X****************************************************,,,,!,************^** 

STREAM PROCEDURE MESSAGE( APTR* TYPE ) > VALUE TYPE; 

% * *.*.*.* ********* * ..* ******* ****** * **.*.*.* *.*_*.* **..*_* * * * *..*** * * ****** * * * * * ******* 

begin local sv; label l 0#h*l2,l 3»l4*l5* ex i t; 

du»aptr; dij=»di+5; dh«dc; 



di»»aptr; dij=»di+5; dh«dc; 
ci.i.sci + type; 

GO LO; GO Li; GO I2i GO L3; GO L4* go l5; 
LO' % TYPE=0> ERROR FOR NON-STANUARU RECORD SIZE 
0SJs37UT"ERRQRl.,FlLE RECORDS. ARE NQN-SU.mARU, 

GO exit; 

Ll» % TYPE=1# NUMBER CF RECORDS CQPiEO 

DS I a^M.1 P'RECQRD S C0PI£lQ)AS:r. RECORD CXIPIEO?.".* 

L2« * TYPE=2, SEQUENCE ERRofr"^ 

.ds; = t6lit"s£qu.ence error..! "j __ 

go exit; 
l3» % type*3# heading for printer output 
DStsaonT" ".; _ 

L4* X TYPE»4> HEADING FOR CARD PUNCH OUTPuT 



»» • 

...j. 



FILE NOT COPIED."; 



0St»6LIT"FILE« 

GO- EXIT. J 

L5* X TYPE*5# SYSTEM ERROR 

DSJ*30LIT W SYSTEM ERROR, 

GO TO. EXITi 
EXIT! 

svjsqi; su«LOc sv; oi: = aptr; ds« s wds; 

-..-EM) STREAM PR0C1.D..U re _m.essa.ge; 

************************************************ 

REAL PROCEDURE TIMECONV; uuuiveuo 

...?.* *..* .*..*.* * * * * *.* * * * *.***.* *.,*** .**.,*. ***.*** **.*_*_ .*.*.* * * *.**..* * * *********** * * ****:** * * * * OQQ 1 9 700 

BEGIN " ~ " " 00019800 

INTEGER HRS»MIN»TI*; 00019900 

..._... _B£.AJ e .^IM.A?L.PRaCE^RE_^(..!l#Mj L Xj^ _ _ 00Q 200Q0 

dfrim " " --■-- - ■- - - ■- -■ 
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... -04X017-900^ 
00018000 
00018100 

..-ooai^oa 
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00018500 
00018600 
00018700 

.....QSlSilh&QQ. 
00018900 
00019000 

--Q00 19 100. 
00019200 
00019300 
0JJO194OQ 



************* ***********ooO 19500 

00019600 



BEGIN 



DII-LOC ST; OI*»OI*i; SlUhj 0SJS2 o£ C ; os 

S.U.»M; ...DS_^*2p_ECi SH^l.; SI»»Si + 6; 0Ss»2CHR 
r wn <;tdi:am «t! 



OSI»LjT w l" ; 
; 



END STREAM ST.S 
TIM t* TIME(l); 

_HfiS_iiL._IIil D Il 216000i_ 
M I N 1 ■ " ( f I M ~D I-V~ 3 600") MOD 
TIM I* IF HRS GTR 11 THEN 

_1F HRS GTR_ 1 2 THEN HRS »■ 
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60; 
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HRS i 



ELSE "AM"; 

• 12; 
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IF HRS LSS 1 THEN WR3 s= 12i 

TIMECONV I* ST(HRS,MlN,TIM); 

END. TlMECQNV; ... 

%********************************************************************* 

STREAM PROCEDURE REFORMAT ( A, ASEQ ); 

, BEGIN _.... _... _ 

01 t"A# DSlsl6L.IT" ") 

Slt=ASEQ; DI l=A; DI»*DI+7; 0S:=8CHr; DI»*DI-a* PS:»7FlLLi 

... END STREAM PRO. GED.JU.HE. REFfltiMAIi _ .._. _ .._ _._ ._... 

%********************************************************************* 

PROCEDURE EXPANDCA/RSIZE); VALUE RSUEI REAL HSUEi ARRAY AtOJi 

it******************* *** **** ** **************** ********* ** * ** ** * ** ****** 

BEGIN 

SAVE ARRAY B[OlRSlZEJJ 

DEFINE F.TC = SI| = SI*31 0P=0I+5> SKIP 30b/ 

lsciF sb then osi«set else ds^reset; skip sb)#; 

DEFINE CTF«Sll*Sl+5; SKIP 3SB* DPsDI + 3; 

15CIF SB. THEN DSJ.sSET ELSE 0..S ».*H&SET.f SKIP SB A*.; _ 

STREAM PROCEDURE CHANGEVECTQRSC A'd); 

BEGIN LOCAL MOMA>MQMB; 

S 1 1 =LOC Aj DI rsLOCMiiMA; 

b; dijsloc mumb; 
momb; ci5«loc a; 

.MOMAl DltaLOC BJ 

b; di»=k«oma; os:=wds; 

„~_ A; DUsfOMBj DS:=wDS; 

END STREAM.. PH0CE0URE CHANGEvXCIORs; _ 

CHANGEVECTORS(A#B); 
END PROCEDURE EXPAND/ 

procedure parityerrorcrecord); v*Lut record; real record; 

%********************************************************************* 

flrr.Tw 
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FTCi 

fic; 
ctf; 

X-TFi. 



-BHai-N- 
% CALLS 



ON 



- v,«uww «- ALGOL-REAO INTRINSIC TU OBTAIN PAR-NO LABEL MESSAGE 
X SO THAT "HELP/DISK" PROGRAM WILL BE CalLEQ 

FILE. DISK DISK .R.AND.0M.....C2j.RPJf.HDM0.iCl5!l^.J); 

FILL DISK WITH MFID'FIDJ 

DO BEGIN 

READ(DISK[KECQRp.J#R£fljA[*]>; RECORD .* *RECC)RU+ 1J 

END UNTIL FALSE; 

END. PROCEDURE PARITYERRORJ 
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IB***************** #_* * *_* * * **_*' * ** * *_*_* * *** * * **_*_* * ** * * * *_* *_* * 

procedure disk I qTbuff* sue * disk aodrVresulT* *a~sk> hate 71 

******************************************************* 

A I J i m» fliiPr. CT"7r n v C i/ i ■■> t^ Tj k i * c l/ t.i * f t- ♦ 



*'************# 
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% 



************** 



V.AL UE..BU F£ » S l.Z EjlDISK AD Dii * MASK.i'4 Al£i 

integer size, diskaddr, buff; real result#mask; boolean wate; 

BEGIN 

_._PRD.CEDURI IMEfiii£Sjl£lML^QD£SC_ iL LJl£A.T.IilfiaL 

VALUE FINALM0DE5C, LOCATION; REAl riNAL'lQOCSC, location; 

C0MMUNICATEC41); 

R E AJ. _U N I T p TlNU > 10D,0 SKAO R Si_ 



REAL STREAM PROCEDURE A0RS(8UFF»0lSKAD0H)i VALUE BUFF' DISKADDR; 
BEGIN 

. sj.L*J-oe dis kaddr ; dh «buff; ost»aoE c; _ 

si»*lqc diskaddr; dij=loc adrs; ossshoec; 
end stream procedure adrs; 

BOOLEANC (DSK ACRS{»ADRSCBuFF«LiISKA0[)R)).Clt5j) THEN 
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IF. 



00025200 
00025300 
00025400 



BEGIN UNITI-19J TINUIM2' END ELSE BEGIN UNlTl«i8; TINU«*6; END* 00025500 
I0DI*BUFF4SIZEt8!38H0 3« 00025600 

((SI ZE.C 38 t l0U29) DIV 30»512? 1 16* 331 15 H H24 ; 47 1 13&T INU I 3» 43J 53 ; ' 0QQ25700 



RE SULTS=ADORESS( RESULT)* 

inREQUEST(-ieD&3 M 3/i7 H C2bM0iaJ# IUD,RESULI *UMTCl2»a2i6]&lC2*47ll3); 

IF WATE THEN. WAI I.t-AnORES-SlRLSULI/' M.SK ...)i _ 

END PROCEDURE DISKIOi 
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2********************4****************************************** 

BOOLEAN ... PROCEDURE GETRECnRDCR-ECORlU CEREAL H VALUE RECORD* CERf AD 

X********************* ****************************************** 

real record; boolean cereal; 

BEGIN _ _ _.. 

2 READS DISK FILE RECORD INTO ARhAy «A" 

OWN REAL NEXTREC0RO»RMINl#RMIN2>RMAXl*RtoAX2*ADRSl,ADRS2; 

real buffer; _ ._ . 

define buffersize»nextrecord#; * temporary storage 
own boolean sett* v all d* oki * 0k2,' 

BOOLEAN. F. I LLUF-D-Lg;. 

INTEGER OFFSET; 

LABEL START#TRANSFER'EXIT/ 

STREAM PROCEDURE MCVE C N j- A>B ) ; VALUE N>Ai 
BEGIN LOCAL T; 

si ib.lqc M;...s.i.a.B.sitAJ qi;.hlqc r;... oi, i..? ui +.7; . u..s i..=gh.r.j_ ......... _.... 

s 1 ** a; di**b; T(2(ds:«32wdS)); ds» = n wos; 

END STREAM PROCEDURE MOVE; 

m -» ■•••••••»#♦ ■•■•■♦ • « • *■-»■•-•-•• .».*.,..,..,..•..♦....». *..»..-» «. » « -» ♦ » • »..»..,...* » «.,....»..,..,. .^^_ ( . 4H ^^. ».«-< 

PROCEDURE FlLLBuFFERCBul-F,RECORU,RESULT*F(MIN,hMAx); VALUE BbFF 
2 .... , 



******* 
******* 



, RECORD 



EXIT. 



REAL BUFF* RECORD/RESULT * RMIN*fiMAx; 

BEGIN LABEL EXIT* 
REAL BLOCK^ROW; 

INTEGER. SEGMENT # BLOCKA0O RESSi... _. 

R0W:=CSEGMEnT»s(BL0CK5=RECURD UIV RPb)xSPfi) DIV SpRj 

IF ROW LEQ 19 THEN 

IF C.a.LD.CISA0DlR£5S..ST.D.lSitR.QW.S.tJiflw.Ii ..RL.a....U..ThLN. 

BEGIN 

BLOCKADDRESS^BLOCKADDRESS + CSEGMENT MOD SpR); 
J .SKI Q.C1UF.F .* ( RPBxR.Sl.Zt.1 .»flkii«LK ADORE S 5#..RE" Sli.LlAHASiLiI.AlSfc.il. 

RMAX»a(NEXTRECORD*=»(RMlN:=BLrjCKxRP(j)+RPB)'"i; 

GO to exit; 

end.;. 

result»*maSk; rminj=rmax>*-i; 



END PROCEDURE FILL6.UFFER/ 



2. 
IF 



NOT SETT THEN 

BEGIN_ 

IF C BU F F E RS I Z £ » » R P B x R S 1 Z'E ) G T H " 30 T "h E N i~~ " 

BEGIN 

IF BUFFERSIZE GTR 1023 THEN GO TO ERRER* 

expand (Bufferi* buffers I ze); 

EXPAND (BUFFER 2' BUFFERSIZE )* 

EJ4DJ _.._ ._ 

IF RSIZE GTR 29 THEN 
BEGIN 
EXPAND(A#R_SlZEti)'L 
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A [03: so; APTRl»ASTARTisADDRESSCA[OJ )i 

end; 

__ RMNJ.»»RJ11J^J^R_MAJCJ 1 L 3 JMA.X2«^-1J_ 

SETT » -TRUE; 
END; 2 OF INITIALIZE 
IF RECORD GTR EOFPTR OR RECORD LS & THEN GO TO EXIT; 
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AQH5l? = ADJR£SSCbUFFtRlLP]}./ OKI! = 7_RU.LJ. 

0K2 THEN 

ADKS2J*ADURESS(iiUFFERaiOJ); 0K£;»TRUE; 

V.A.L Jjj ... .T.HXtJ FILL 4..?.= LRUL> *. .H L Ajj I.N.Q_SXRlAJjLt 

.AtUJ_JlE£JifiCLJ.£lil _RMAJU THEN 



00031400 
00031500 
0.00^X6.00 
00031700 
00031800 
.CO 0-31-900 
00032000 

00032100 
0. 00.122 00 
00032300 
00032400 
JlOJU2iQJD_ 



IF NOT OKI THEN 
BEGIN 
BUFFERltO]»=0i 

end; 
if cereal and not 

BEGIN 

BUFFER2[03»=0; 

end; 

if cereal and mm 

valid»»cereal; 

START! 

IF RECORD GEO RMlM 

BEGIN 00032600 

BUFFERIaADRSli 00032700 

' IF NOT BHD.L£AMifiLi8U.UllrI.l...iJLl.l.l. .. JLtiOLhALT. .tAlJMt^SliiEAULXlitMASiai- 0OQ.i2.8aa~ 

IF RESULT!, C28I23 N£Q THEN PARI T YERRQRC RM IN 1 ) ; 00032810 

FILL! I = (REC0RD»RMAX1) AND CEREAL; 00U3290Q 

go to transfer; __ __ aaojjaaoo 

end; 00033100 

IF CEREAL THEN IF RECORD GEO RM1N2 AND RECORD LEW RMAX2 THEN 00033200 

BEGIN aoO.33.3OO. 

BUFFERISADRS2* 00033400 

IF NOT B00LEAN(RESUlT2.C19»1]) THEN W A TTC ADDRESS ( KESULT2 ), MAS K ); 00033500 

IF.RESULl2tt2fli.23 ...NEft Q..J.HE.N HARLT.TEB.BQ.Rf RM I N 2 )t _._. __ __ .QQQ.i3.5tO 

FILL2' 3 (RECQRDsRMAX2) AND CEKLAl; 00033600 

GO TO TRANSFER; 00033700 

end; _ _ _ _ Qflfti.38.cui 

IF NOT BB0LEANCRESLLT1.U9JU) THEN MAI TC ADORESSC RESULT1 J#MASK ); 00Q33 9 00 

IF RESULTl,£28»23 NeQ THEN P AR ITYeRROR CRM jn U ; 00033910 

FlLLlU!LF.ER(MRai^E£.UJlLtfi£aaiJ.lAiiHlJ41j.aMx.l.ii _ QQ0.34Q.QC] 

IF CEREAL THEN 00034100 

BEGIN 00034200 

..-— - .IF-.NO..I B.Q.QLEM,C.BE.S.ULI£^^ 

IF RESULT2,C28»2] NEQ THEN PARITYeRRQRC RMIN2 ) ; 00034310 

FILLBUFFERCADRS2#NEXTRECC)RD,R£SULT2,RMIN2»RMAX2>; 000 34400 

END1- _. .000.3.4500 

FILL2*=FALSE; 00034600 

go to start; 00034700 

IRA,MS.FLBJ......_ _. _ _ _ QQ0 34W0Q 

OFFSET** 



(RECORD MOD RPB)*RSl2E+i> 
M0VECRSI2E»BUFFER+0FFSET#AC2xREALCF0RMT) j>; 

.fi£T RECORD *..f.IJ?.yEJ. _ ■__ __ J 

IF FILL1 THEN 

BEGIN 

IF NOT BOOLE AJ!C_RE.SUlT1.[ 19 :_1] ) THEN W A IT ( AU_DRJ;SS_C KESULj U/MASk ); 

if result 1,c28»23 neq 6 then patl t terror (rmin 1 ) ; 
fillbuffercaorsi, next record* reSulti*rmini»hmaxi j; 

£.NDJL_ 

IF FILL2 THEN 

BEGIN 

I F__N 0_T B OOL E A H ( RE_SUL T 2 'J- 1 VA)J ™£ N W A I T_( A D D H £S S( RESULT 2 )f MASK )J 

IF R~ESULT2«[28»2 3 NEQ THEN PArTt YERRORC R^IN2 ) ; 

FILLBUFFERCA0RS2*NeXTREC0RD*RLSULT2*HMIN2#RMax2); 
EMQ.1_ _ 



00034900 

00035000 

. Q Q0 3 51QQ 



00035200 
00035300 
00035400 

00035410 
00035500 

..Q.QQ.15.AQQ. 



EXITJ 

END PROCEDURE GETRECORD; 

_3l*. **.*** ...» »****•*****•***+******••********* •* •* **** * **********•********** 

procedure bsearchclrec*lrange); real lreclrange; 

%******************* ************************* ********** **************** 
JL_LR£C_qS. RFLA-I-l^E DISK ADOftFSS OF FILE RECORD , 



00035700 
00035800 
000 35900 
000759 id" 
00036000 
00036100 
00036200 
00036300 
046j 



*00 



L40-0- 



00036500 

*OQ036600 

000 36700 
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4fi 
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% LRANGE IS SEQUENCE NUMBER OF RECORD ^l Ai"<l SEARCHING TOR 
BEGIN 

REAL ADJ#REC#SEO; 

LABEL START'EXIT; 
- RECl«LREC+(EOFPTR-LREC) QIV 2' * CENTER UF RANGE 

GO TQ. START J 

DO BEGIN 

IF LRANGE LSS SEQ THEN % 

RE.C ! ?C REC..J =.REC- ADsJ ) *KEAL.C 

IF RECIs(LREC«»REC)+ADJ G 
START: 

IF GE.TRECQRDt££.CAfALS£) T 

IF (SEQ:sINPC0NV(m[3EUL0C 
BEGIN LREClsREC; GO TO 
ADJ*=(PFOLREC) DIV di 
END UNTIL ADJ LEO M 
EX1TJ 

END PRQGSDUHE BSEARCH; 

ACOJtsO; APTRl»ASTART:=A 
DlSKH AIT.U* A* 3Q* CQMMGJO i 



MOVE BACK 

fife.C.i.UJ.1.1'0.3 ELSE 

TR EUFPTR THEN R£C!=EOFPTR; 

MEN 

PENANCE THEN 

Exir; END; 



.DURESSC 
.CQMMCiN 
»» BOOLEANCACU.C 
«= B80LEANCAC1J.C 
*» BOOLEANCAllia 
5* A[2]; % USER C 
ts At 3 3; % FIRST 
;.« AC4J; * SECOND 
»* A[93; % NAME 
0UTC0NV(LlNE»A[l] i [40i83#FALSE) 



DATAFILE 

WORKFILE 

CONCISE 

USER 

MFID 

FID 

OUTPUTNAME 



AtOJ 

j.=oi 
3«n 

6*13 

BUI 

ODE 
NAME 
NArt 
F OU 

; % 



j; 

*.. 

)) 



.ES.p._niaK._.at.c.QKo 

St TYPE DATA FILE 

X INPUT FlLE*wORKFILE 

* CONCISE OPTION SET .. 



UF INPUT FILE 
L OF. INPUT. FILE 
TPUT FILE 
DECIMAL VALUE OF 



LINE NUMBER 



IF SEeCHECKl«CNPARAM5»«At i J.C27 |6]") 
MOVE(9#A[213,PARAMSO] )', 



&TR THEN % PaHaTieIe'rs'q'TvEn' 



IF RESEQ ' s AC5] N'e'O C THfcN X "'"'R'eSeOUENC I'N'g P aR aMT'eRS GIVEN 



BEGIN 
SJARTRESEQ 

ENDRESEQ 

INCREMENT 

BASE 

end; 



PRINTER 
PUNCH 



* = 
is 

1 3 

! = 



1» 



At.53; 

AC6]; 
Ace]; 
AE71-.INCRE.MENI; 



eR 



U T P L T N A M E . I ft $6 3. ■ M 2 " *— l-^fifT-T«rPfl*N«ll 
OUTPUTNAME. C6J63="3"; I COPY TO PUNCH ~ 



AI..P.J IS -Lf GETHEMERXA*M£I.D.^F_.IQ*.y.S.EHJ ; .,„, 

IF A[03 LSS THEN 
BEGIN 

messagecaptraSj; % system. .error 

TWX0UT(A[03#MSGSIZE* 1); 

common !« o & i[2ifl7«n; % error flag for camje 

..._..GiLIQ. EXITj. 

end; 

HDRO «s 
PSIZEJ^RSlZEts 
RPB : = 

SPB ! = 

FILETYPE Is 

EOFPTR »* 
SPK ts 



ACQ]; 

HD W0tCl» U3; 
HDRO, [ 30 J 12 i i 
HDR0.U2I6]; 
AC A ] . C 36 J6 j; 



A[73i 

Am; 

MOVE(20»AC103»OISKROHSt03)J 



00036800 
00036900 
000 3 7 000 
00037100 
00037200 
00-0.37300 
00037400 
00037500 
.00.0176 00 
00037700 
00037800 
0.00.379.00 
00038000 
00038100 
00038200 
00038300 
00038400 
0.00.38500 
=00038600 
00038700 
00038800 
00038900 

00039000 
0003.9100. 
00039200 
00039300 

00039400 
00039500 
00039600 

.0.0.0.3.9.700- 
00039800 
00039900 

.M.0.4QQQQ 
00040100 
00040200 

0.0040 300 
00040400 
000405GG 
Q.Q 040 6.0 Q 
00040700 
0004080 



— qjJL Lj H ft H 



0004100D 



.00.04120 1 

0004130P 

0004140 

Q0_0.4150 

00041600 

00041700 

o_o.o_4iao_Q 









00041900 
00042000 
0QQ_42A0Q 



00042200 
00042300 
.00 042400 
00042500 
00042600 
00042700 



T* 







2U 

» 
.11 

:i2 



I 






41; 

|4J 

■W 

■>!)"' 

SO 

>il 

s:i 



h 



IF NOT SEQCHECK AND ECFPTR GTH 29 THEN HRANGE : = EUFM ARK ; * SERIAL READ 

If RSIZE . NEtl 1Q AND .... EJ}F.P_TB GEO IliLIN X N.OJ.V-S.T A&U.Artfl RECO RD SJ.ZE 

IF (PUNCH AND RSIZE GTR 10 ) OR UUTPOTN AME , 16 » 1 2 ]*" IS" THEN 

BEGIN 
ER«ER» MESS|IGE.iAPTS#0)» * NQN-STANDAHD FILE ERH.L« 

TWXOUTCACO],MSGSUEf lj; 

COMMGNJsO & 1C2M7M]; % ERRCiH FLAG FCR CaNDE 

go ro exit; 

end; 

if. wor.kfile anp..nq.t..di.taflle_.then_ .5flg»«true % inpui f i le*ttqrkf ile_ 
else sflgja(rsize=10 and flletfpe ne& 8); * 10 word* sequent i al file 

if printer anp sflg and flletype"jo them * info file 

BEGIN 

PSlZE«=RSIZE-i; i»EGL0CJ = 9; 
END 
ELSE SEQLOCtsIF (FORMT:*SFlG AND PRINTER) THEN 11 ElSE 9; 

RESULT1 «=. RESULTS » = MASK* 1 .*.. 1 Ml I ALJ2E RESULT DESCRIPTOR 

IF MAKETABl*C0UTPUTNAME.C6»l23s ,, lS»' AND NOT DATAFILE) THEN 

BEGIN > 

FILL NEWTAB WITH " "&» 1 T" Co : 36 : id J 4C L I NL L 18 : 30 * 16 1 * USER; 

i:=600; * RECORDS PER ROW 

JJ«300; % WORDS PER BLOCK 

END 
EL^E 
.BEGIN 

IfsCCCHORO, [30:12] / H0R0.[42:6]) x SPR) + 0,5} CIV \i % RECORdT/RO 

J:*HDRO, C 15 « 153; * WUR[}S PeH BLOCK 
END./ _ 

BEGIN % INNER BLOCK 

FILE OUTFILE DISK SERIAL L2Q? 1 1 (2, RSIZE* J. SAVE 30); 

LABEL NEXTPARAM* READlN' FINI5HE0* 

IF (PRINTER pR PUNCH.) THEN * C0_PY TO PRIMER UR COPY Tg PUNCH 
BEGIN 
MESSAGE(APTR#(IF PRINTER THEN 3 ELSE «)}; 

PLACESTRlNG.CAPT.R»AV."&0U.TP.UTN|AMEL6:l_2J36],f Aj.SE. J ; % FJH§I NAME 

PLACESTRlNQ(APTR»FlD*FALSt); * SECONQ NAME ~ 

PLACESTRING(APTR»TIME(6)&" ♦•[ y '• 42 J -6 ] *F ALSE )* * DAY OF WEEK 
l i ?"^ /0 0/QO»MilrJAm:i3llllXX.n % ijA 

IF I, [115] NE9 THEN 
BEGIN 

PLACESIRIN.G.C APIA* I ,.U filATROEJi _ 

IF ( j:*APTR.C3Q{ 3] ) GTR THEN APTR . C 30 » 3) «=»( J- 1 ) ELSE 
APTRI*(APTR.[33*15]-1)&7[30S45I3]; 

ENDJ. ....... __ 

PLACESTRING( APTR* I* FALSE); 

placestringcaptr»i«=timeconv*kalse); % TlMt OF DAY 

PLAC£.STRlJ!j.GCAP_IRj.. M _ 5jJALS£U_ _.. ... . _ 

I**(MSGSIZE) DIV 8; APTR» sASTAKT ; / 

IF PRINTER THEN WH I TECPRNT COBL J * I* A [ * ] ) £LS£ wR I T E(PNCh* I* A [* ] ) ; 

.-. IE...-PRI.NI.ER Ih£JL_Wfill£X£fi.liLLDilUJJ-w_ . 

ENO X IF PRINTER OR PUNCH 
ELSE FILL OUTFILE WITH OUTPUTNAME'USER; 
lE...fOEei.l.JL&S-fl THEN GO TO finis hed; 



0CU428Q0 
00042900 
QUO 4 10 00 
00043100 
00043200 
O.QO.43.IOO 
00043400 
000435G0 
00043600 
00043700 
00043800 
0Q.0.A3.9.OQ 
00044000 

00044100 
0QU44200 
060443OO 
00044400 

. 00. 0.445.0 
00044600 
00044 700 

QO 0.4.4 8..Q0 

00044900 
00045000 

00045100 

00045200 
00045300 
00045400 
00045500 
00045600 

-.0.0.0.4.5X0.0 

w 00045800 

00045900 

SmQAAQQQ 

00046100 
00046200 
Q.Q046JJO.O. 
00046400 

00046500 
000_4 6_60 

00046700 
00046800 

0.0.0 46 9.00 

00047000 
00047100 

T.EQ_Q0..4_Z.2QO. 
00047300 
00047310 

.. .0(1047.320 
00047330 
00047340 

0-Q-O.A Z350 

00047360 
00047400 

... aaoAZsao. 

00O47600 

00U47700 

__ .QjQJ)..4Z8-QJl 



00047900 

00048000 

.00^48 IjQjD- 






** 



P* 




3 



r^- 



•& 



I'll 

VI, 
16 
17 
If' 



1- -. 



I Yl 
lb 

Ml 

11 

:i:..| 

.VI, 

v4,' 

K 

il'i 

iul 



(4 

ib 
*h 
17 
U 
*9 
50 
51 
52 
53 
54 
35 



PREVSEQ :» NCT « = -j; LREC :~ o; 

IF SEQCHECK THfN % SEQUENCE RANGE SPECIFIED 

BEGIN . . 

NPARAMSl«NPARAMS-U 
SRCESEQJaPCl*-i; 

LRECI-li 
NEXTPARAMJ 

LHECJ«LREC-i; 

LRAN6E»*KfiANGO.?PARA.MiLl'C.»»P.C+i]..Liil?«7]; 

IF LRANGEsEOFMARK THEN % "END" 

BEGIN 

LREC.I"E.QF.P.TRJ LB.AtiGEl=?01. GO TO .....RE.A.DIN/ 

end; 
if pc lss nparans then % mure parameters specified 

IF.,BQQLEA,NlPAR,A^SXP£.±.U. J .Lii.lJJ M.?< - 

HRANGEt«PARAMSEPCI»PC+l3t[2ll27]; 

IF NOT SFLG THEN * PARAMETER IS RECORD LOCATION 

BEGIN _ 

LREC := (LRANGE-i)xREALCLHANGE NEd 0)> 
GO TO readin; 
end; 
if srceseq'lrange then * already have thla record 

BEGIN 

GO to readin; __ 

end; 

IF (EOFPTR.-LREC) GTR 30 ThEn di.EARC H CLREC,LRANGE); * BINARY SEAHC 

END! % IF PARAMTERS -SPECIFIED 

REAOINt 

IF GETRECORD(LREC»(HRANGE GTR LHANGE)) THEN 

BEGIN , 

LRECt=LREC+i; 

SRCESEQs=lF SFLG THEN InPCONVC A[ SEQLGC ] > ELSE LREC; 

IF SEQC..HEC.K ...THEN ..*....CH.LC-K.-..$.LQ.u.t.N.C£...KAN,GE 

BEGIN 

IF SRCESES LSS LRANGE THEN iiO TU READIN' % TOO LOW 

IF SrceSEQ GTR HRANGE. THEN. 

IF PC LSS NPARAMS ThEN u D TC NExTPARAm ELSE GO TO finis m ed; 
END; % SEQUENCE CHECKING 

NCT!=Ncm; ...*. cli.Pu.1 fil.e,_.kecuhd count.. __ ._... _ 

OUTSEQJ= 

IF MAKETAB AND NOT SFLG THEN INPCON V< At SEQLOC ] ) ELSE SRCESEQ; 

IF RESEQ THEN %.. RES.EQUENC.1N.G IH£ t.IL£ _ _ _ 

IF OK OR SRCESEQ GEQ STARTiiESEt, THEN 

IF RESE>J 5=0K : = SRcE^L iJ L.l^ ENU^EbEQ THfc.N % I im RA ,N| Gt 

BEGIN 

OUTSEfi J s BASES = BASE + i^CREl k 'ENi; % i\EW SEQUENCE NUMBER 
OUTCONV(AtsEQLOC]*OUTSEO»FALSE); * NEW NUMBER IN RECORD 
END; % IF R£SEQUENCII\G _ 

IF MAKETAB THEN % MaKE SuHt StUUCVCE InUmHl^S AKE IN ORDER 
BEGIN 

IF OUT SEP LEG PREVSjEW THEN * UtT rjF SEQUENCE 

BEGIN 

ERROR» s NCT BRAAK; X DONT PRINT ERROR IF BREAK RECEIVED 
. ERRSEQi=£USEei 



0UTSEQt*FFTVSEG + 2; * ADJUST SEQUENCE NUMBER 

OUTCONVC A [SEQLOC ]# (JUT SEU»FALSE)> 

ZHil'i 



IF NPTR*«NPTR+1 GTR 29 THEN % JAB SEGMENT IS FILLED 
BEGIN 

H RIT £ (N£WTAB,30,N[*3); _ _ __ 



00046200 
00048300 
00.0.^8.4.00. 
00048500 
00048600 
..0Ofi.A67.Q0 
00048800 
0004890C 
00049000 
00049100 
00049200 

afl0 4.sa.o.fl.. 

00049400 
00049500 
Q0.Qil.960Q 
00049700 
00049800 

.0.00.4 9,900. 
00050000 
00050100 
0005020Q 
00050300 
00050400 

.00050500 
00050600 

h000b0700 
0.0050800 
00050900 
00051000 

...QO 051.100. 
000^1200 
00051300 

Q.00.5..1..4.Q.Q 

00051500 
00051600 
0OO517Q0 
00051600 
00051900 

. .00M5..2Q.Qfl.. 
00052100 
00052200 

. .0.0.0.5 23.Q.G.. 
QQ052400 
0005250C 
00052600 
00052700 
00052800 

00052900 
0605 3000 

00053100 
_0 53 20 

00053300 
00053400 

00053500 
000 5 3510 
0005360C 
000^3700 
00053800 

00053900 
00054000 
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NPTH!=0> 

end; 
ncnptR) :=o 
end; *'" if m 
if formt then 
if printer the 

BEGIN 

JSsPSlZE+RL 

IF NOT SFLG 
BEGIN 
OUTCONVC 
J.l"J+U 
END 

WRITEC 

. ...END X... 
ELSE IF PUNCH 
ELSE WRITECOUT 
IF ERROR THEN 
BEGIN 

MESSAGEC APT 
PLACESTRI.NG 
PLACESTRING 
TWXOUT(Atej 
ERRORS sfALS 

end; 

PR£VSEQl«OUTSE 

go to readin; 

end; % IF MORE 
FINISHED* 
IF MAKE JAB .TH.I.N . % 

BEGIN 

IF NPTRt=NPTR+ 

BEGIN __ 

WRITECNEWTA 
NPTRl»0* 

end; 

N[NPTR3:=E0FMA 
WRITE(NEWTAB» J 

END; *....!£ M.AJiE 

IF NOT (PRINTER 
BEGIN 

IF. ...NCI ..fi£fl_Q._I 

LOCKCOUTFILE** 
IF MAKETAB THE 

END! 

END INNER BLOCK; 
IF NOT CONCISE THEN 

„ BEGIN _..._ _ 

PLACESTRINGCAPTR* 
MESSAGEC*PTR*1 ); 

_P_L A£ E_S T R IN G_ ( A_P T R *_ 

TWXQUTCAC"03#MSGSI 
END; % IF NOT CON 
COMMON! * COMMON _«_ C.NC. 



& NCT£4:3p*lo] a 00 I S £ « L 2 \ : <; 1 i 2 ( ~i ', 

AKETAB 

HEFORMATCA'AtSE-dLOC] ); 

N 




AL(FGPMT); 

AN U No]ZE=lQ 1 ht-N % PjiPLAY RLCUR0._ 

AtJI»LREC»TRUE)* 



J> AC *J )/ 



then write<pnch>nsize#ai*] ) 

FILE'RSIZE'AOJ )i 



R* 2 3 ; * SEQUENCE ERROR 
XAPT.RjPHEV0t.C./I.Ky.E)./ 

captr,errseq/true); 
#msgsi2e#i ); 

e; - 

c; 

RECORDS IN FILL 

CHECK LA SI ENTRY .!&_ JAB. FILL 

1 GTR 29 THEN % FyLL TAH SEGMENT 
B,30,NC*]); 



NUMBER 



rk; 

c » n c * ] ) ; 

TAB 

R PUNCH) THEN 

Jl£J!LJ»LACEl.t££i.FJ.L£TJt££.fcJlUIF_IU£.U. 
); 

N LUCKCNEWTMfl** )i 



NCT+UTRUE); 

% NUMBER OF RECORDS COPIED 

OJilSEfi »_ LRJjE _)J_ .__ _ 



BOOLEANCRESUL 
BOOLEAN(RESUL 



IF NOT 
IF NOT 
EX1T»_ 

end program » 
eno;end. 

.ML!..*. 



ze*d; 

CISE 

■T + l)E3 »3t4bJ* * PASS RECORD COUNT JQ. 



CANDE 



Tl.tl9»13) THEN «AIT(AODRESbCRESULTl)fMASK)l 
T2.Cl9»l]) TnEN «AI TC ADCRESSC RESOL T2) » MASK ) ; 



OGGbaiGC 

0CUS42CG 

o.yp.aftioo 

0G05440G 
00054500 
00Pb4600 
00054700 
000b4800 

..00.yb4V.00 
00055000 
00055100 

...Q0-U.5-5.2ilG 

00055300 
00055400 

-GOPi55-CJl.. 
00055600 
00055700 
.Qfl-OiSAOD. 
00055900 
00036000 
000.56100 
000b6200 

000b6300 
00056400 
000b6500 
0005660C 
0.0Q5670Q 

00056800 
00056900 

.. O.Q_Q110.Q.Q 

00057100 
OOU57200 

00057400 
00057500 

...O.Q5i7..6Q.O 

00057700 
00037800 

.aa&iZAQo.. 

00058000 
00058100 
.Oi>05_B_2Q_fi. 
00058300 
00058400 
00058500 
00058600 
00058700 
..Q.Q.058.8.Q.Q • 
00058900 
00059000 
0005 9100 

00059200 
00059300 
00059 A00 

00039500 
00059600 
Q Q0 5970Q 
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LAST CARD ON OCROING TAPE 
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